home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / robinson / frmtag1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-31  |  1.8 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form frmUsingTags1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Using Tags 1"
  5.    ClientHeight    =   2040
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4785
  9.    Height          =   2445
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2040
  13.    ScaleWidth      =   4785
  14.    Top             =   1140
  15.    Width           =   4905
  16.    Begin CommandButton cmdSendTag 
  17.       Caption         =   "Send Tag to Form 2"
  18.       Height          =   495
  19.       Left            =   735
  20.       TabIndex        =   2
  21.       Top             =   1290
  22.       Width           =   3195
  23.    End
  24.    Begin TextBox txtTagValue 
  25.       FontBold        =   -1  'True
  26.       FontItalic      =   0   'False
  27.       FontName        =   "MS Sans Serif"
  28.       FontSize        =   12
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       Height          =   420
  32.       Left            =   2175
  33.       TabIndex        =   1
  34.       Top             =   435
  35.       Width           =   2100
  36.    End
  37.    Begin Label lblTagValue 
  38.       AutoSize        =   -1  'True
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "Tag Property:"
  41.       FontBold        =   -1  'True
  42.       FontItalic      =   0   'False
  43.       FontName        =   "MS Sans Serif"
  44.       FontSize        =   12
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   300
  48.       Left            =   525
  49.       TabIndex        =   0
  50.       Top             =   495
  51.       Width           =   1620
  52.    End
  53. Option Explicit
  54. Sub cmdSendTag_Click ()
  55.   frmUsingTags1.Tag = txtTagValue.Text
  56.   frmUsingTags2.Tag = txtTagValue.Text
  57.   frmUsingTags2.Show
  58. End Sub
  59.